Using the tidyverse because it has the libraries to clean, mutate and visualize data. library(data.table) - helps load data faster then read csv

library(tidyverse)
library(data.table)
library(lubridate)
library(magrittr)
library(flexdashboard)
library(ggrepel)
library(formattable)
library(sf)
library(plotly)
library(treemapify)
library(scales)
library(RColorBrewer)
library(formatR)
library(caret)
library(rgdal)
taxi_data_join_4=fread('clean_data_haoguo.csv')

Column

Avg Fare

valueBox(scales::dollar(12.32), icon ="fas fa-taxi", color = "black")

$12.32

Avg Distance

Withtext <- dollar_format(prefix = " ",suffix=" Miles")
valueBox(Withtext(2.87), icon = "fas fa-taxi", color = "black")

2.87 Miles

Avg Duration

Withtext <- dollar_format(prefix = " ",suffix=" Minutes")
valueBox(Withtext(35), icon = "fas fa-taxi", color = "black")

35 Minutes

#Change to show avg distance instead of trips this week

Busiest Days

taxi_data_join_4  %>%
  ggplot(aes(x = weekday)) + geom_bar(fill = '#FFF0F5') + ylab("Number of Rides") + xlab("Weekday") + scale_x_discrete(
    limits = c(
      "Monday",
      "Tuesday",
      "Wednesday",
      "Thursday",
      "Friday",
      "Saturday",
      "Sunday"
    )
  ) + ylab("Number of Rides") + xlab("Weekday") + scale_y_continuous(labels = comma) + theme(axis.text = element_text(size = 50),
                                                                                             axis.title = element_text(size = 50)) + theme(
                                                                                               panel.grid.major = element_blank(),
                                                                                               panel.grid.minor = element_blank(),
                                                                                               panel.background = element_blank(),
                                                                                               axis.line = element_line(colour = "black")
                                                                                             ) +  theme(plot.background = element_rect(fill = 'white', colour = 'black'))

Busiest Times

ggplot(data = taxi_data_join_4, aes(x = hour)) + geom_bar(fill = '#FFF0F5') + scale_x_continuous(breaks =
                                                                                                   seq(0, 30)) + ylab("Number of Rides") + xlab("Hour") + scale_y_continuous(labels = comma) + theme(axis.text = element_text(size = 50),
                                                                                                                                                                                                     axis.title = element_text(size = 50)) + theme(
                                                                                                                                                                                                       panel.grid.major = element_blank(),
                                                                                                                                                                                                       panel.grid.minor = element_blank(),
                                                                                                                                                                                                       panel.background = element_blank(),
                                                                                                                                                                                                       axis.line = element_line(colour = "black")
                                                                                                                                                                                                     ) +  theme(plot.background = element_rect(fill = 'white', colour = 'black'))

Column {.tabset} fig.width=50